Những câu hỏi liên quan
Trường Nguyễn
Xem chi tiết
Minh Lệ
1 tháng 4 2022 lúc 11:26

Program HOC24;

var i,n: integer;

S: real;

begin

write('Nhap N: '); readln(n);

s:=0;

for i:=1 to N do s:=s+1/i;

write('S= ',s:5:2);

readln

end.

Bình luận (0)
nuinuini
Xem chi tiết
San San
Xem chi tiết
Nguyễn Trung Hiếu
20 tháng 3 2022 lúc 7:21

Câu 1: 
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

Bình luận (0)
Nguyễn Trung Hiếu
20 tháng 3 2022 lúc 7:22

Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

Bình luận (0)
Nguyễn Thị Ngọc Oanh
Xem chi tiết
ttanjjiro kamado
19 tháng 1 2022 lúc 20:29

var i,n: integer;

       s:real;

begin

write(‘Nhập n: ‘); readln(n);

i:=1;

repeat 

s:=s+1/i;

i:=i+1;

until i=n;

write(‘s =‘, s:0:4);

readln

end.

 

      diepbichdiepbich  016/08/2021 at 03:53Reply

Program Hotboy ;

Uses crt; 

Var n,i,s : real;

Begin

Writeln(‘nhap n’);  readln(n);

Repeat 

S:=S+ 1/i;

I:=i+1 ; 

Until n=i; 

Writeln(‘S=’,S);

Readln

End.

Bình luận (3)
ttanjjiro kamado
19 tháng 1 2022 lúc 20:29

bạn tham khảo nha

Bình luận (0)
Nguyễn Lê Phước Thịnh
19 tháng 1 2022 lúc 23:30

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln(s:4:2);

readln;

end.

Bình luận (0)
Lâm Khả Doanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:28

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

Bình luận (0)
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:21

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

Bình luận (0)
Nguyễn Huy Bảo Thạch
Xem chi tiết
Lê Xuân Hoa
Xem chi tiết
Nguyễn Hoàng Duy
30 tháng 3 2023 lúc 21:30

program SumOfNumbers;

uses crt;

var
  n, i, sum: integer;
  numbers: array[1..100] of integer;

begin
  clrscr;
  write('Enter n: ');
  readln(n);

  // Tạo mảng các số tự nhiên từ 1 đến n
  for i := 1 to n do
    numbers[i] := i;

  // Tính tổng các số tự nhiên từ 1 đến n
  sum := 0;
  for i := 1 to n do
    sum := sum + numbers[i];

  writeln('The sum of the first ', n, ' natural numbers is: ', sum);
  readln;
end.

Bình luận (0)
foxbi
Xem chi tiết
Kiều Vũ Linh
18 tháng 3 2023 lúc 7:55

 Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

Bình luận (0)
Nguyễn Như
Xem chi tiết
Phía sau một cô gái
20 tháng 3 2023 lúc 21:56

Chương trình tính tổng: 

n = int(input("Nhập n: "))

S = 0

for i in range(1, n+1):

     S = S + i

print("Tổng S là:", S)

Chương trình tính tích:

n = int(input("Nhập n: "))

T = 1

for i in range(1, n+1):

     T = T * i

print("Tích T là:", T)

Bình luận (0)
Nguyến Ngọc Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2021 lúc 14:56

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

  if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.

Bình luận (0)